home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / tm / message-mime.el.z / message-mime.el
Encoding:
Text File  |  1998-05-21  |  2.5 KB  |  84 lines
  1. ;;; message-mime.el --- MIME extensions for message.el
  2.  
  3. ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
  4.  
  5. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
  6. ;; Created: 1996/8/6
  7. ;; Version:
  8. ;;    $Id: message-mime.el,v 0.6 1997/01/29 18:21:45 shuhei-k Exp $
  9. ;; Keywords: news, MIME, multimedia, multilingual, encoded-word
  10.  
  11. ;; This file is not part of GNU Emacs yet.
  12.  
  13. ;; This program is free software; you can redistribute it and/or
  14. ;; modify it under the terms of the GNU General Public License as
  15. ;; published by the Free Software Foundation; either version 2, or (at
  16. ;; your option) any later version.
  17.  
  18. ;; This program is distributed in the hope that it will be useful, but
  19. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  20. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21. ;; General Public License for more details.
  22.  
  23. ;; You should have received a copy of the GNU General Public License
  24. ;; along with This program.  If not, write to the Free Software
  25. ;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  26.  
  27. ;;; Code:
  28.  
  29. (require 'tm-edit)
  30.  
  31. (setq message-forward-start-separator
  32.       (concat (mime-make-tag "message" "rfc822") "\n"))
  33.  
  34. (setq message-forward-end-separator "")
  35.  
  36. (or (string-match message-included-forward-headers "Mime-Version:")
  37.     (setq message-included-forward-headers
  38.       (concat message-included-forward-headers "\\|^Mime-Version:"))
  39.     )
  40.  
  41. (or (string-match message-included-forward-headers "Content-Type:")
  42.     (setq message-included-forward-headers
  43.       (concat message-included-forward-headers "\\|^Content-Type:"))
  44.     )
  45.  
  46. (or (string-match message-included-forward-headers
  47.                   "Content-Transfer-Encoding:")
  48.     (setq message-included-forward-headers
  49.       (concat message-included-forward-headers
  50.                   "\\|^Content-Transfer-Encoding:"))
  51.     )
  52.  
  53. ;;; @ for tm-edit
  54. ;;;
  55.  
  56. ;; suggested by OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
  57. ;;    1995/11/08 (c.f. [tm ML:1067])
  58. (defun message-mime-insert-article (&optional message)
  59.   (interactive)
  60.   (let ((message-cite-function 'mime-editor/inserted-message-filter)
  61.         (message-reply-buffer gnus-original-article-buffer)
  62.     )
  63.     (message-yank-original nil)
  64.     ))
  65.  
  66. (set-alist 'mime-editor/message-inserter-alist
  67.        'message-mode (function message-mime-insert-article))
  68. (set-alist 'mime-editor/split-message-sender-alist
  69.        'message-mode
  70.        (lambda ()
  71.          (interactive)
  72.          (let (message-send-hook
  73.            message-sent-message-via)
  74.            (message-send)
  75.            )))
  76.  
  77.  
  78. ;;; @ end
  79. ;;;
  80.  
  81. (provide 'message-mime)
  82.  
  83. ;;; message-mime.el ends here
  84.